home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / ITEDO IsoDraw-I / ITEDO IsoDraw Demo PPC I / ITEDO IsoDraw Demo PPC I.rsrc / STR#_505.txt < prev    next >
Encoding:
Text File  |  1994-01-18  |  984 b   |  94 lines
  1. %%BeginProcSet: Adobe_cmykcolor 1.1 0
  2. % cmykcolor Operators
  3. % Version 1.1 1/23/1989
  4.  
  5.  
  6. % Copyright (C) 1987-1990
  7. % Adobe Systems Incorporated
  8. % All Rights Reserved
  9.  
  10.  
  11. currentpacking true setpacking
  12. userdict /Adobe_cmykcolor 4 dict dup begin put
  13. /initialize
  14.  
  15.  
  16. {
  17. /setcmykcolor where
  18.     {
  19.     pop
  20.     }
  21.     {
  22.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  23.  
  24.  
  25.     /_setrgbcolor
  26.         /setrgbcolor load def
  27.     /_currentrgbcolor
  28.         /currentrgbcolor load def
  29.  
  30.  
  31.     Adobe_cmykcolor begin
  32.     Adobe_cmykcolor
  33.         {
  34.         dup xcheck
  35.             {
  36.  
  37.  
  38.             bind
  39.             } if
  40.         pop pop
  41.         } forall
  42.     end
  43.     end
  44.     Adobe_cmykcolor begin
  45.  
  46.  
  47.     } ifelse
  48. } def
  49. /terminate
  50. {
  51. currentdict Adobe_cmykcolor eq
  52.     {
  53.     end
  54.     } if
  55.  
  56.  
  57. } def
  58. /setcmykcolor
  59. {
  60. 1 sub 4 1 roll
  61. 3
  62.     {
  63.     3 index add neg dup 0 lt
  64.         {
  65.  
  66.  
  67.         pop 0
  68.         } if
  69.     3 1 roll
  70.     } repeat
  71. Adobe_cmykcolor_vars /_setrgbcolor get exec
  72.  
  73.  
  74. pop
  75. } def 
  76. /currentcmykcolor
  77. {
  78. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  79. 3
  80.  
  81.  
  82.     {
  83.     1 sub neg 3 1 roll
  84.     } repeat
  85. 0
  86. } def
  87. currentdict readonly pop end
  88. setpacking
  89.  
  90.  
  91. %%EndProcSet
  92.  
  93.  
  94.